home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
TEMPEST.ZIP
/
TIME.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1995-03-05
|
2KB
|
113 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
STRING001 = " * ST0P TRYiNG T0 RiP 0UR PPE'S ASSH0LE!!! * "
If (!Exist("12345678")) Print ""
FOpen 1, PPEPath() + "time.cfg", 0, 2
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FGet 1, STRING006
PrintLn ""
PrintLn ""
Print "" + STRING003 + " " + STRING006 + "" + String(Date()) + " " + Strip(Lower(String(TimeAp(Time()))), " ")
Newline
Print "" + STRING004 + " " + STRING006 + "@LOGDATE@ @LOGTIME@"
STRING002 = ScrText(GetX() - 5, GetY(), 5, 0)
If ((((((((((((Left(STRING002, 2) == "13") || (Left(STRING002, 2) == "14")) || (Left(STRING002, 2) == "15")) || (Left(STRING002, 2) == "16")) || (Left(STRING002, 2) == "17")) || (Left(STRING002, 2) == "18")) || (Left(STRING002, 2) == "19")) || (Left(STRING002, 2) == "20")) || (Left(STRING002, 2) == "21")) || (Left(STRING002, 2) == "22")) || (Left(STRING002, 2) == "23")) || (Left(STRING002, 2) == "24")) Then
INTEGER001 = Left(STRING002, 2)
INTEGER001 = INTEGER001 - 12
Backup 5
Print String(INTEGER001) + Right(STRING002, 3) + "pm"
Else
Backup 5
Print Strip(STRING002, " ") + "am"
Endif
Newlines 2
PrintLn "" + STRING005 + " " + STRING006 + "@TIMEUSED@ Mins. (@TIMELEFT@ Mins. Left)"
Wait
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Wait
; 2 Goto
; 4 Let
; 5 Print
; 3 PrintLn
; 2 If
; 1 FOpen
; 4 FGet
; 1 Newline
; 1 Newlines
; 2 Backup
;
;
; ■ Functions used :
;
; 19 +
; 2 -
; 12 ==
; 22 !
; 11 ||
; 1 Lower()
; 13 Left()
; 1 Right()
; 1 Date()
; 1 Time()
; 1 TimeAp()
; 2 Strip()
; 3 String()
; 1 PPEPath()
; 1 Exist()
; 1 GetX()
; 1 GetY()
; 1 ScrText()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 1 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------